# Reproduce results of Example C.2
# R version 4.1.1 (2021-08-10)
#
# Data is from Keim (1983)

# Run keim83.R get test decision